Top 10k strings from Start to Program (1984)(St. Michael)(Tape 1 of 2 Side A).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /

Back to the directory listing

   4 user program
   4 read user program vars
   4 introduction screens
   4 highlight user variable
   4 change user variable
   3 ;s$;s$;s$;s$;
   2 page jumps follow
   2 p$="tunes"
   2 OOOOOOOOOOOOOOOOOO
   2 ;s$;s$;s$;s$;:
   2 ;"Type in the new value: ";:
   2 ;"To go to the next:   press ";
   2 ;"        ";:
   2 --------------------------------
   2   80 GO TO 20
   1 z$=z$+m$(1
   1 taunt the user
   1 taunt for user
   1 screen    
   1 s$="                                "
   1 runcode   
   1 run       T
   1 riff frills
   1 put up intro screens
   1 program menu
   1 p$=p$+n$(mq,i)
   1 n$(i),f$(i),o$(i):
   1 main program
   1 main      
   1 m$=m$+"BET YOU CAN'T"+
   1 loading screen
   1 listing subroutine
   1 list other subs
   1 jingle l  
   1 jingle    
   1 intro screen if any
   1 input positive number
   1 initialise
   1 highlight next var
   1 g$=f$(mq):
   1 editor/run menu
   1 editor subroutine
   1 charset & colour subs
   1 boxes l   
   1 boxes   blotch  jingle  tunes   car     
   1 boxes     
   1 blotch l  
   1 blotch    
   1 `xxxXXXhhhPPP
   1 `xxxXXXhhh
   1 XXXhhhPPPpppHHH```xxxXXXhhhPPPppGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG
   1 Want to see where the box";
   1 WHEN RUNNING JINGLE
   1 WHEN RUNNING BOXES
   1 WHEN RUNNING BLOTCH
   1 To return to Choices:press 
   1 To go to next page:  press 
   1 STOP THE TAPE
   1 Press any key to go on
   1 OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO
   1 MORE BASIC WORDS
   1 JINGLE CHOICESd
   1 INTRODUCTION TO JINGLE
   1 INTRODUCTION TO BOXES
   1 INTRODUCTION TO BLOTCH
   1 How many times repeated?(1 to 4)
   1 GGGGGGGGGGGGGGGGGGGGGGGGGGGGJ
   1 Do you want to hear it played   with autorepeat? Press 
   1 Do you want to go back and try?         press 
   1 Created with Ramsoft MakeTZX
   1 BASIC WORDS USED IN JINGLE
   1 BASIC WORDS USED IN BOXES
   1 BASIC WORDS USED IN BLOTCH
   1 ;m;" is too big.     ";:
   1 ;m;" is too big.     "'"z must never be more than 7     ";:
   1 ;m;" is too big.     "'"Colours are numbered 0 to 7.    ";:
   1 ;"use keys 1 to 8, and maybe CAPS ";:
   1 ;"then rewind it.":
   1 ;"flash?     Press 
   1 ;"before was?  Press 
   1 ;"Whole box would be off screen.  ";:
   1 ;"When  you run BOXES,  the  lines":
   1 ;"When  you  first tell BLOTCH  to":
   1 ;"Type in new value: ";:
   1 ;"Type in a new graphics character";
   1 ;"Turn over tape,";
   1 ;"Try another value.              ";:
   1 ;"Top edge would be off screen.   ";:
   1 ;"To run program:  press 
   1 ;"To pick this program:press ";
   1 ;"To move to the next: ";
   1 ;"To make a change:    ";
   1 ;"To choose this one:  press ";
   1 ;"To change this one:  ";
   1 ;"This program will cover your  TV":
   1 ;"This  simple  music  program  is":
   1 ;"This  program draws a box of any":
   1 ;"There is only one new BASIC word":
   1 ;"Then press 
   1 ;"That note is too high pitched.  Try again.";:
   1 ;"Start the tape and press 
   1 ;"Right edge would be off screen. ";:
   1 ;"Rewind tape."
   1 ;"RND produces random numbers; see":
   1 ;"Press any key to stop";
   1 ;"Page ";pg:
   1 ;"PRINT AT  determines where  each":
   1 ;"PLOT puts a point on the screen.":
   1 ;"PAUSE 0 means pause forever.    Try another value.              ";:
   1 ;"PAUSE ";m;" is very slow.     ";
   1 ;"Once  you have run the  program,":
   1 ;"LIST ";:
   1 ;"For CHOICES screen:  ";
   1 ;"Each  time the program  is  run,":
   1 ;"Do you want to see some";
   1 ;"DRAW makes a straight line,  and":
   1 ;"CHOOSE A PROGRAM";
   1 ;"BORDER  sets the colour  of  the":
   1 ;" Choose another program ";
   1 ------------------------    
   1 ,j)=v(i,j):
   1 +"WITH A PAUSE OF"
   1 +"THIS PROGRAM WILL ALLOW."
   1 +"THE HIGHEST AND LOWEST NOTES"
   1 +"ONLY IN RED"+
   1 +"ONE  SECOND"
   1 +"MAKE A BOX THAT"+
   1 +"FILLS THE WHOLE SCREEN"
   1 +"BET YOU DON'T KNOW"
   1 +"BET YOU CAN'T PRINT"
   1 );" See and change ";p$;
   1 );" Run ";p$;
   1 );" Introduction to ";p$;
   1 (learn to draw a box anywhere)(splash colour over the telly)  (a catchy little number)    (compose musical masterpieces)    (design your own car)     
   1 "you  will be asked  whether  you":
   1 "you   will  also  be  given  the":
   1 "wish  the JINGLE to  repeat.  It":
   1 "where  the point is to  go.  The":
   1 "very  similar to the one on page":
   1 "used in the program. BEEP is the":
   1 "tunes"," TUNES CHOICES","(compose musical masterpieces)"
   1 "to hold down the ENTER key.":
   1 "to  choose the ink colour.  Some":
   1 "the value of 'z' bigger than  7.":
   1 "the second will have to be small":
   1 "the keyboard.":
   1 "the colour of what is printed or":
   1 "the  computer  how long to  wait":
   1 "the  chance to restart  it  with":
   1 "stop running,  you will be given":
   1 "size, anywhere on the screen. It":
   1 "shape and position of a box."
   1 "sets the pitch of the note.  You":
   1 "screen with coloured shapes.  It":
   1 "page 14 of the book.":
   1 "page  80,  which  also  explains":
   1 "of  the  book.  Even  though  it":
   1 "numbers  from 0 to 21.  0 is the":
   1 "number combinations will not  be":
   1 "number  sets the length of  time":
   1 "number  in  this  program.   Use":
   1 "note known as middle C."
   1 "looks very simple, it introduces":
   1 "jingle","JINGLE CHOICES","  (a catchy little number)    "
   1 "is similar to the one on page 18":
   1 "is also explained on page 63."
   1 "is  based  upon the  program  on":
   1 "instruction    to   make    your":
   1 "graphics  characters on the keys":
   1 "from  0 to 7  on the top row  of":
   1 "for  the sound,  and the  second":
   1 "flashing."
   1 "explained on page 50.  The first":
   1 "edge of the screen, and INK sets":
   1 "drawn.  The colours are numbered":
   1 "changing  the program alters the":
   1 "chance  to redraw earlier  boxes":
   1 "car","  CAR CHOICES","    (design your own car)     "
   1 "can repeat itself up to 4 times"
   1 "can   only  change  the   second":
   1 "boxes"," BOXES CHOICES","(learn to draw a box anywhere)"
   1 "blotch","BLOTCH CHOICES","(splash colour over the telly)"
   1 "blotch will go,  and PAUSE tells":
   1 "as  well.  Use this to  see  how":
   1 "are drawn slowly if you continue":
   1 "and vice-versa":
   1 "allowed  because  they may  make":
   1 "all     additional    characters":
   1 "after drawing each blotch."
   1 "a   number  of  important  BASIC":
   1 "The  two numbers after PLOT show":
   1 "Spectrum create a noise.  It  is":
   1 "SHIFT will reverse their effect."
   1 "If  the  first number is  large,":
   1 "C","C#","D","Eb","E","F","F#","G","Ab","A","Bb","B"
   1 "255,  and the 2nd between  0 and":
   1 "21 of the book.":
   1 "1st number must be between 0 and":
   1 "175.  Refer  to page 63  of  the":
   1 "1 to 8;  using  them  with  CAPS":
   1 "   You can also try out all  the":
   1 "   Line 40 uses a random formula":
   1  for other subroutines,"'"or press any other key to go on.";
   1  Triptych Publishing Ltd. 1984
   1  BOXES CHOICESBLOTCH CHOICESJINGLE CHOICES TUNES CHOICES  CAR CHOICES 
   1   80 BEEP 1,
   1   70 PAUSE 
   1   70 BEEP .5,
   1   60 PRINT AT x,y;"
   1   60 BEEP .5,
   1   50 INK z
   1   50 DRAW 0,-
   1   50 BEEP 1,
   1   40 LET z=
   1   40 DRAW -
   1   40 BEEP 1,
   1   30 LET y=INT (32*RND)
   1   30 DRAW 0,
   1   30 BEEP .5,
   1   20 LET x=INT (22*RND)
   1   20 DRAW 
   1   20 BEEP .5,
   1   10 PLOT 
   1   10 BORDER 
   1   10 BEEP 1,
   1    press any key to speed up    
   1     press any key to speed up   ";s$;
   1      Press any key to go on
   1                                 j
   1